Những câu hỏi liên quan
Trần trung hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:48

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Bình luận (0)
Long Phùng
Xem chi tiết
Nguyễn Ngọc Lộc
6 tháng 2 2021 lúc 23:25

* Tham khảo :

Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.

Bình luận (0)
duy nguyễn nhất
Xem chi tiết
Tòi >33
17 tháng 3 2022 lúc 10:02

A

Bình luận (0)
TV Cuber
17 tháng 3 2022 lúc 10:02

A

Bình luận (0)
bạn nhỏ
17 tháng 3 2022 lúc 10:02

A

Bình luận (0)
Chicken King
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 6 2020 lúc 13:46

C

Bình luận (0)
Hà Sỹ Thống
25 tháng 6 2020 lúc 15:33
D nha bạn ;))
Bình luận (0)
Minh Lệ
Xem chi tiết
Nguyễn Quốc Đạt
14 tháng 10 2023 lúc 20:28

Chọn D. Lặp với điều kiện được kiểm tra sau khi thực hiện khối lệnh.

Bình luận (0)
hoang ngan phan
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2022 lúc 22:23

Câu 4:A

Câu 5: C

Câu 6: D

Câu 12: D

Câu 11: C

Bình luận (0)
duy nguyễn nhất
Xem chi tiết
Vô danh
17 tháng 3 2022 lúc 10:49

10.B

11.C

Bình luận (0)
NATT
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 21:38

1. A

2. A

Bình luận (0)
NLCD
Xem chi tiết